/*******************************************************************************

This code file produces Figure A4, "Statutory Property Tax Rates in New York City Since 198."

*******************************************************************************/

*** Manage settings

	run "$dir/code/modules/settings.do"
	
*** Load data

	use "$data/raw/tax_schedule/taxrates_byclassyear.dta", clear
	
*** Make graph

	gen upper = 0.25
	
	local barcall upper y if inrange(y, 2003, 2015), bcolor(gs14) blcolor(none) base(0.08)
	
	tw bar `barcall' || line taxrate_class1 taxrate_class2 year, ///
		legend(order(2 "Class 1 (3 or Fewer Units)" 3 "Class 2 (4 or More Units)")) ///
		xtitle("") ytitle("Statutory Rate on Taxable Value") lcolor(navy maroon) ///
		graphregion(color(white)) plotregion(margin(zero)) ///
		ylabel(, nogrid)
		
	graph export "$figs/statutory_taxrate.pdf", replace
	graph export "$figs_overleaf/statutory_taxrate.pdf", replace
